home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / Folders.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  2.0 KB  |  68 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Sunday, January 6, 1991 at 10:43 PM
  3.     Folders.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.         Copyright Apple Computer, Inc.    1989-90
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT Folders;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingFolders}
  21. {$SETC UsingFolders := 1}
  22.  
  23. {$I+}
  24. {$SETC FoldersIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingTypes}
  27. {$I $$Shell(PInterfaces)Types.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingFiles}
  30. {$I $$Shell(PInterfaces)Files.p}
  31. {$ENDC}
  32. {$SETC UsingIncludes := FoldersIncludes}
  33.  
  34. CONST
  35. kOnSystemDisk = $8000;
  36.  
  37. kCreateFolder = TRUE;
  38. kDontCreateFolder = FALSE;
  39.  
  40. kSystemFolderType = 'macs';             {the system folder}
  41. kDesktopFolderType = 'desk';            {the desktop folder; objects in this folder show on the desk top.}
  42. kTrashFolderType = 'trsh';              {the trash folder; objects in this folder show up in the trash}
  43. kWhereToEmptyTrashFolderType = 'empt';  {the "empty trash" folder; Finder starts empty from here down}
  44.  
  45. kPrintMonitorDocsFolderType = 'prnt';   { Print Monitor documents }
  46.  
  47. kStartupFolderType = 'strt';            {Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here}
  48. kAppleMenuFolderType = 'amnu';          {Finder objects to put into the Apple menu go here}
  49. kControlPanelFolderType = 'ctrl';       {Control Panels go here (may contain INITs)}
  50. kExtensionFolderType = 'extn';          {Finder extensions go here}
  51.  
  52. kPreferencesFolderType = 'pref';        {preferences for applications go here}
  53. kTemporaryFolderType = 'temp';          {temporary files go here (deleted periodically, but don't rely on it.)}
  54.  
  55. FUNCTION FindFolder(vRefNum: INTEGER;folderType: OSType;createFolder: BOOLEAN;
  56.     VAR foundVRefNum: INTEGER;VAR foundDirID: LONGINT): OSErr;
  57. {$IFC SystemSevenOrLater }
  58.     INLINE $7000,$A823;
  59. {$ENDC}
  60.  
  61.  
  62. {$ENDC}    { UsingFolders }
  63.  
  64. {$IFC NOT UsingIncludes}
  65.     END.
  66. {$ENDC}
  67.  
  68.